﻿Imports Commander_Wars.Spieletools
<Serializable()> Public Class KOOzzy
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefüllstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefüllstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "OZZY"
        Armee = Armeen.AC.ToString
        Musik = "Ozzy"
        Bild = GetBildID()
        Select Case My.Settings.CommanderWarsGameMoodus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 2
            Case CommanderWarsGameModi.CommanderWars2
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 2
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
        End Select
        KOname = Objektverwalter.KOS(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafür sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
        DeffensivStärke = New Feuerkrafttabelle115
        GegenFeuerkraft = 1
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        DeffensivStärke = New Feuerkrafttabelle135
        GegenFeuerkraft = 1.3#
        If OhneFunktion = False Then
            AnimationEigene("OzzyGabe", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWars Then
            DeffensivStärke = New Feuerkrafttabelle135
            GegenFeuerkraft = 1.3#
            If OhneFunktion = False Then
                AnimationEigene("OzzyGabe", 2)
            End If
            GabeEingesetzt()
        Else
            DeffensivStärke = New Feuerkrafttabelle160
            GegenFeuerkraft = 2
            If OhneFunktion = False Then
                AnimationEigene("SPEZIALGABE", 2)
            End If
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

<Serializable()> Public Class KOBeschreibungOzzy
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Ozzy"
        Fein = "Gedankenspiele"
        Nein = "Warten"
        Beschreibung = New String() {"Ein Psychoanalyst, der sich auf", "Verteidigen spezialisiert hat."}
        Stil = New String() {"Seine Truppen haben eine erhöhte", "Deffensive."}
        Gabebeschreibung = New String() {"Seine Deffensive sowie sein Rückangriff steigt."}
        SpezialgabeBeschreibung = New String() {"Seine Deffensive sowie sein Rückangriff", "steigt stark."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Hammer On", "Großes Finale"}
        Synergie = New Decimal() {1, 0.5#, -1, -2, -1, 0.5#, 1}
        KONamen = New String() {"RACHEL", "SOPHIE", "KAT", "EPOCH", "MINAMOTO", "MARY", "KOSHI"}
        Doppelgabenamen = New String() {"Eruption", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Licht An"}
        Gabesätze = New String() {"ES IST LANGE HER DAS ICH GEROCKT HABE, MMM-HMM!" _
                                  , "Jetzt Black, Johnny B...Killer Queen...Dizzy Lizzy, 'n Major Tom..." _
                                  , "Du bist immer noch hier. Ich muss jetzt proben" _
                                  , "It's time for Rock 'n Roll." _
                                  , "Time for Magic...the SPANISH CASTLE magic..."}
        Siegsätze = New String() {"Endlich kann ich zurück an meine Gitarre." _
                                , "Ich könnte jetzt was Klischeehaftes sagen, aber ich denke ich habe genug getan." _
                                , "So niemand hat dir erzählt wie meine Konzerte sind?"}
        Tauschsätze = New String() {"...Alles im Kopf... Ich glaube schon... Warte es ist mein Zug!" _
                                    , "Gunna getcha...Gunna shootchya...Gunna, gunna...gunna...Trügt auf den Schalter."}
        Doppelgabesätze = New DoppelGabesatz() {New DoppelGabesatz("OZZY", "RACHEL", "Jetzt wird gerockt.", "Du hast nur Musik im Kopf. Es gibt gerade wichtigeres.") _
                                              , New DoppelGabesatz("RACHEL", "OZZY", "Es wird Zeit sie hier raus zu jagen.", "Einen Moment ich bin in einer Probe!") _
                                              , New DoppelGabesatz("KOSHI", "OZZY", "Ozzy! Nach allem möchte ich deiner Band beitreten! Kann ich?", "Du spielst die Lufttrompete. Eigentlich...eine Trompete? Hmmm.") _
                                              , New DoppelGabesatz("OZZY", "KOSHI", "Sehr schwer einschätzbar. Koshi du bist ein Meister des Wahnsinn...!", "Eher """"Meister des Internets"""" richtig?")}
    End Sub
End Class
